inherited F_AgregarModuloUsuario: TF_AgregarModuloUsuario
  Left = 383
  Top = 204
  Width = 563
  Height = 284
  Caption = 'Agregar M'#243'dulo'
  OldCreateOrder = True
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  inherited PanelInferior: TPanel
    Top = 210
    Width = 555
    inherited JvSB_Aceptar: TJvSpeedButton
      Left = 418
    end
    inherited JvSB_Cancelar: TJvSpeedButton
      Left = 288
    end
  end
  inherited PanelCentral: TPanel
    Width = 555
    Height = 210
    Font.Height = -13
    ParentFont = False
    object Label_Nombre: TLabel
      Left = 24
      Top = 8
      Width = 33
      Height = 16
      Caption = 'T'#237'tulo'
    end
    object L_Usuario: TLabel
      Left = 24
      Top = 64
      Width = 47
      Height = 16
      Caption = 'Usuario'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label_Monto: TLabel
      Left = 256
      Top = 128
      Width = 37
      Height = 16
      Caption = 'Monto'
    end
    object Label1: TLabel
      Left = 24
      Top = 128
      Width = 38
      Height = 16
      Caption = 'Fecha'
    end
    object Edit_Nombre: TEdit
      Left = 40
      Top = 32
      Width = 482
      Height = 24
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
    end
    object JvDBLC_Producto: TJvDBLookupCombo
      Left = 41
      Top = 88
      Width = 481
      Height = 23
      DropDownCount = 15
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Anchors = [akLeft, akTop, akRight]
      LookupField = 'ID'
      LookupDisplay = 'CONCATENATION'
      LookupDisplayIndex = 1
      LookupSource = DS_Users
      ParentFont = False
      TabOrder = 1
    end
    object Edit_Monto: TJvValidateEdit
      Left = 272
      Top = 152
      Width = 81
      Height = 24
      CriticalPoints.MaxValueIncluded = False
      CriticalPoints.MinValueIncluded = False
      DisplayFormat = dfFloat
      DecimalPlaces = 2
      DisplayPrefix = '$ '
      EditText = '0'
      HasMaxValue = True
      HasMinValue = True
      MaxValue = 9999999.000000000000000000
      TabOrder = 3
    end
    object DTP_Fecha: TJvDateEdit
      Left = 42
      Top = 157
      Width = 170
      Height = 24
      DefaultToday = True
      DialogTitle = 'Seleccione una Fecha'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ButtonWidth = 20
      ParentFont = False
      TabOrder = 2
    end
  end
  object ZQuery_Add_Monto: TZQuery
    Connection = DM_Persistence.DBConnection
    SQL.Strings = (
      
        'INSERT INTO MODULOS_POR_USUARIO (FK_ID_USUARIO, TITULO_MODULO, F' +
        'ECHA, PRECIO)'
      'VALUES (:FK_ID_USUARIO, :TITULO_MODULO, :FECHA, :PRECIO)')
    Params = <
      item
        DataType = ftInteger
        Name = 'FK_ID_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'TITULO_MODULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftDate
        Name = 'FECHA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRECIO'
        ParamType = ptUnknown
      end>
    Left = 185
    Top = 113
    ParamData = <
      item
        DataType = ftInteger
        Name = 'FK_ID_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'TITULO_MODULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftDate
        Name = 'FECHA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PRECIO'
        ParamType = ptUnknown
      end>
  end
  object DS_Users: TDataSource
    DataSet = ZROQ_Users
    Left = 216
    Top = 153
  end
  object ZROQ_Users: TZReadOnlyQuery
    Connection = DM_Persistence.DBConnection
    Active = True
    SQL.Strings = (
      'select id, UPPER(Apellido) || '#39', '#39' || F_PROPERCASE(NOMBRE)'
      'from usuarios'
      'order by Apellido, Nombre')
    Params = <>
    Left = 216
    Top = 120
  end
end
